Public Class RdoOrina

    Private Sub cmdSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSalir.Click
        Close()
    End Sub

    Private Sub cmscancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmscancelar.Click
        If MsgBox("Se perderan los cambios realizados, Desea continuar?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Atencion!") = MsgBoxResult.Ok Then
            Me.Close()
        Else
            Exit Sub
        End If
    End Sub

    Private Sub RdoOrina_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cboColor.Items.Add("Amarillo")
    End Sub

    Private Sub cmdgrabar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdgrabar.Click

    End Sub
End Class